PC Media 23

home *** CD-ROM | disk | FTP | other *** search

/ PC Media 23 / PC MEDIA CD23.iso / share / prog / dclib500 / dclib.doc < prev next >

Wrap

Text File | 1994-03-26 | 30.9 KB | 846 lines

*************************************************************************** Librería de funciones generales, DcLib.TPU *************************************************************************** Versión 5.00 de Febrero y Marzo del 1994 * ****************************************** ShareWare 1993,94 David Carrero Fernández-Baillo --------------------------------------------------------------------------- INDICE ------- 1.- Concepto de ShareWare 2.- Historial de Versiones 3.- Documentación 4.- Registro 5.- Requerimientos mínimos y uso de estas librerías 6.- Datos del Autor 7.- Otros programas o librerías del autor. --------------------------------------------------------------------------- Se incluyen la librería Dclib.TPU completa con pausa de 5 segundos y un mensaje. --------------------------------------------------------------------------- ┌─────────────────────────────┐ │ 1.- Concepto de ShareWare ├─┐ └─┬───────────────────────────┘ │ └─────────────────────────────┘ Este programa no es Dominio Público sino SHAREWARE, o sea, PROBAR ANTES DE COMPRAR. Por favor, no copie DcLib.TPU Lo único que se consigue pirateando programas es que el autor abandone el programa por no poder mantenerlo. Por favor, sean fieles al concepto ShareWare. ┌──────────────────────────────┐ │ 2.- Historial de Versiones ├─┐ └─┬────────────────────────────┘ │ └──────────────────────────────┘ Versión 1.00 del 22/08/1993 Versión Inicial. Versión 1.10 del 10/09/1993 Se añade Function InverCar, para invertir los caracteres de una frase Versión 1.20 del 17/09/1993 Se añade ver Versión del Dos y ver fecha de la BIOS Versión 1.50 del 17/09/1993 Se añaden otras 15 funciones más. Versión 2.00 del 17/09/1993 Se añade visualización de ficheros PCX, no soporta el Versión PCX 5. Versión 2.01 del 18/09/1993 Se añaden 3 sonidos más. Versión 2.02 del 18/09/1993 Se quita todos los Sonidos y se crea la Unit Sonidos. Versión 2.03 del 19/09/1993 Se quita fechadelaBIOS y VersiondelDOS, y se transladan a la Unit InfoPc. Versión 3.00 del 01/10/1993 Se añade ShellDosMenos, Oscurecer1, Restuarar1 y OscureceryRestaurarPK. Además se corrigen algunos errores. Versión 3.10 del 05/10/1993 Se corrige un error en la función InverCar. Versión 3.30 del 05/10/1993 Se añaden 3 funciones bastantes utiles para aparcar la cabezas del disco duro, la dos primeras son dos métodos de aparcar y la tercera es un versión igual que la segunda pero con mensajes. Versión 3.40 del 11/10/1993 Se añaden dos nuevas funciones para control de borde, una devuelve el número actual de borde y la otra cambia el color del borde actual. Versión 3.50 del 18/10/1993 Se añaden las funciones VocalesyConsonantes, DibujarBarrasT, NumEnCad, InterCadena, Left, Right. Versión 3.60 del 19/10/1993 Se añaden las funciones ActivarCrono, PararCrono, DiaSemanaLet, MesLetras. Versión 3.70 del 20/10/1993 Se añaden las funciones FillWord, real_str, str_int, Num2Let, Reset_PC0, BootPC, Reset_PC1. Se elimina temporalmente la función DosShellMenos, por unos errores detectados. Versión 3.80 del 25/10/1993 Se solucionan los problemas de DosShellMenos. Versión 3.81 del 15/11/1993 Se realizan un pequeños cambios. Versión 3.82 del 20/11/1993 Se añade el procedimiento PantallaRayas y PantallaRayasPK, que es un efecto especial de pantalla que hace... pruebalo. Versión 4.00 del 03/01/1994 Se eliminan color y fondo. Se añaden PulsarTecla, Retardo, Sonido, NoSonido, Nota, LeerTecla, EstadoBMay, EstadoBNum, EstadoBDes, EstadoInsertar. Versión 4.01 del 06/02/1994 Se añaden UsarLongP y UsarRealP. Versión 5.00 de Febrero y Marzo de 1994 Se reforma e incluyen muchas funciones más, consultar DCLIB.DOC y ayuda DCAYUDA.TPH, más de 100 funciones disponibles. ┌─────────────────────┐ │ 3.- Documentación ├─┐ └─┬───────────────────┘ │ └─────────────────────┘ Aquí describo cada una de la funciones, procedimientos y variables que se encuentran en esta librería, detrás de algunas descripciónes incluyo un pequeño ejemplo de como utilizar las funciones, procedimientos o variables. [ Descripción de la funciones de la Versión 5.00 ] █▀▀▀▀▀▀▀▀▀▀▀█ █ Variables █░░ █▄▄▄▄▄▄▄▄▄▄▄█░░ ░░░░░░░░░░░░░ VersionDcLib ~~~~~~~~~~~~~~ Devuelve la versión de la librería, se usa igual que DosVersion. CadJust ~~~~~~~~~ Tipo que incluye JIzquierda, JCentrado, JDerecha, utilizado para la funcion CadJ. También están los tipos que son utilizados por Num2Let Str255 = String[255]; Str10 = String[10]; Str3 = String[3]; Str1 = String[1]; Str80 = String[80]; Str40 = String[40]; █▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█ █ Funciones y Procedimientos █░░ █▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█░░ ░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░ Function PulsarTecla : Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Remplaza a KeyPressed de la librería CRT, detecta cuando es pulsada una tecla y retorna true si es pulsada. Function LeerTecla : Char ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Similar a Readkey de la librería CRT. Function EstadoBMay: Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si la tecla bloqueo mayúsculas está activada y false si no lo está. Function EstadoBNum: Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si la tecla bloqueo numérico está activada y false si no lo está. Function EstadoBDes: Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si la tecla bloqueo desplazamiento está activada y false si no lo está. Function EstadoInsertar: Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si la tecla insertar está activada y false si no lo está. Function ActualColorBorde : RangoColor; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve un número comprendido entre 0 y 63, que corresponde al color del borde la pantalla. Solo EGA/VGA. Procedure CambiarColorBorde(colorBorde : RangoColor) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Cambia el color del borde la pantalla, colores de 0 a 63. Procedure BorrarPanCo(atri : Byte; ch : Char) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Borra la pantalla con un color y carácter especificado. Procedure ActivarPaginaNB(Pagina : byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Activa página de video si las hay. La que por regla general se usa es la 0. Function NumLineasPan : Byte ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el número de lineas actuales en pantalla. Procedure CursorXY(Columna, Linea : byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que GotoXY. Procedure PantallaOn ~~~~~~~~~~~~~~~~~~~~~~ Activa la pantalla, que previamente se apagó con PantallaOff. Procedure PantallaOff ~~~~~~~~~~~~~~~~~~~~~~~ Apaga la pantalla, para volver a encenderla poner PantallaOn. Aunque en pantalla no se vea nada se puede escribir en ella. Procedure NoBlink1(OnOff:boolean) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Activa/Desactiva el parpadeo. (blink) Se consiguen asi 15 colores fondo. Procedure LCursorPXY (Var Pagina, X, Y: Byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que WhereX y WhereY, pero permite poner la página de video a usar. Procedure CursorPXY(Pagina, X, Y: Byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que GotoXY, pero permite poner la página de video a usar. Function LeerTeclaN: Word ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Similar a ReadKey, pero no devuelve caracteres sino números. Function LeerTeclaE: Word ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Similar a ReadKey, pero no devuelve caracteres sino números. Soporta teclas especiales. Function TeclaPulsada : Word ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el valor número de la tecla pulsada. Procedure CambiarEstadoInsertar(On: Boolean) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Cambia el estado de la tecla insertar. Function MododeVideo: Byte ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el número del modo de video. Function PulsarTeclaExt :boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si se está pulsando una tecla especial. Function MaxX : Byte ~~~~~~~~~~~~~~~~~~~~~~ Igual que WhereX. Function MaxY : Byte ~~~~~~~~~~~~~~~~~~~~~~ Igual que WhereY. Function DondeX : Byte ~~~~~~~~~~~~~~~~~~~~~~~~ Igual que WhereX, pero diferente que MaxX. Function DondeY : Byte ~~~~~~~~~~~~~~~~~~~~~~~~ Igual que WhereY, pero diferente que MaxY. Procedure NewGotoXY(x,y : Byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que gotoXY, pero diferente que los anteriores. Function HayXY(x,y : Byte) : Char ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el carácter que se encuentra la posición de pantalla dada. Procedure vga50lineas ~~~~~~~~~~~~~~~~~~~~~~~ Pone la pantalla en modo texto de 80x50, solo VGA. Procedure vga43lineas ~~~~~~~~~~~~~~~~~~~~~~~ Pone la pantalla en modo texto de 80x43, solo EGA/VGA. Procedure vga25lineas ~~~~~~~~~~~~~~~~~~~~~~~ Pone la pantalla en modo texto de 80x25, solo VGA. Procedure vga30lineas ~~~~~~~~~~~~~~~~~~~~~~~ Pone la pantalla en modo texto de 80x30, solo VGA. Procedure VGAInversa ~~~~~~~~~~~~~~~~~~~~~~ Invierte todos los caracteres, solo VGA. Procedure BorrarBufferTec ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Borrar el contenido del Buffer del teclado. Procedure LineasPantalla( Lines : byte) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Cambia la linea en pantalla, Lines debe se igual aun modo de Video. Procedure Park1 ~~~~~~~~~~~~~~~~~ Aparca la cabezas del disco de un modo. Procedure Park2 ~~~~~~~~~~~~~~~~~ Aparca la cabezas del disco de un modo distinto al anterior. Procedure Park3 ~~~~~~~~~~~~~~~~~ Aparca la cabezas del disco de un modo igual a Park2, pero devuelve ya texto de finalización de proceso en Castellano. Procedure Reset_PC0 ~~~~~~~~~~~~~~~~~~~~~ Modo más simple de inicialización del Pc, usando la INT 19. Procedure Reset_PC1 ~~~~~~~~~~~~~~~~~~~~~ Otro modo de inicialización. Procedure ResetFrio0 ~~~~~~~~~~~~~~~~~~~~~~ Otro modo de inicialización. Procedure ResetFrio1 ~~~~~~~~~~~~~~~~~~~~~~ Otro modo de inicialización. Procedure Reset_PC2 ~~~~~~~~~~~~~~~~~~~~~ Otro modo de inicialización. Procedure Reset_PC3 ~~~~~~~~~~~~~~~~~~~~~ Otro modo de inicialización. Procedure CalibrarRetardo ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Activado al iniciar la librería, calibrar la función retardo. Procedure Retardo(Ms : Word) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que Delay. Procedure Sonido(Freq : Word) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Igual que Sound. Procedure NoSonido ~~~~~~~~~~~~~~~~~~~~ Igual que NoSound. Procedure Nota(Freq, Dura : Word) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve un sonido on una frecuencia y una duración. Function Num2Let(num:Real):Str255 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve un número en letras (en castellano). Procedure OscureceryRestaurarPK(Velocidad:ShortInt) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Oscurece y restura una pantalla a una velocidad especificada hasta que se pulse una tecla. Procedure Oscurecer1(Velocidad:ShortInt) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Oscurece la pantalla con una velocidad definida, para restaurar poner Restaurar1. Aunque este apagada después de oscurecerla progresivamente se puede seguir escribiendo en pantalla. Procedure Restaurar1(Velocidad:ShortInt) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Restaura pantalla previamente oscurecida con Oscurecer1. Procedure ShellDosMenos ~~~~~~~~~~~~~~~~~~~~~~~~~ Realiza una visita al dos, se vuelve con Exit. Lleva mensajes en castellano. Procedure DibujarBarrasT( X, Y : Integer; NumeroOpe, Total : LongInt; Width : Integer; Carac : Char) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Dibuja barras de porcentaje, (ver ejemplo). x, y : Coordenadas en pantalla NumeroOpe : Número de veces para completar operación Total : Total % a completar Width : Longitud máxima de la barra Carac : Caracter a usar en barras. Function CopiarFichero( FicheroFuente, FicheroDestino : string) : ShortInt ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Copia un fichero de un lugar a otro. Códigos que retorna: 0 No hay errores 1 Fuente y Destino son los mismos 2 No puedo abrir Fuente 3 No puedo crear Destino 4 error Durante la copia Function TamFichero(Fichero : String) : Longint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve -1 si el fichero no es encontrado. Function ExisteFichero(Fichero:string):boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve True si el fichero existe. Function ExisteDirectorio( Dir: string ) : boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve True si el directorio existe. Function FicheroUnidad(Todo:string): string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve la unidad de una ruta. Ej. Si C:\DOS\FORMAT.COM --> Devuelve C Function FicheroDirectorio(Todo:string): string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el directorio de una ruta. Ej. Si C:\DOS\FORMAT.COM --> Devuelve \DOS Function FicheroNombre(Todo:string): string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve el nombre de un fichero. Ej. Si C:\DOS\FORMAT.COM --> Devuelve FORMAT Function FicheroExt(Todo:string): string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve la extensión de un fichero. Ej. Si C:\DOS\FORMAT.COM --> Devuelve COM Function CompletarDirectorio(Dir:string):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Completa directorio. Ej. Si \DOS --> Devuelve \DOS\ Function NomFicValido(FN:string): shortint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Comprueba un fichero con su ruta y devuelve los códigos: -2 Ruta válida, pero fichero no especificado -1 Ruta y nombre correctos pero el fichero no existe 0 Ruta y nombre correctos y fichero si existe 1 Unidad especificada incorrecta 2 Caracteres ilegales en la ruta 3 Ruta Inválida 4 Fichero no especificado 5 Caracteres ilegales en el nombre 6 Nombre es mayor de 8 caracteres 7 Extensión es mayor de 3 caracteres Function BorrarFichero(Filename:string): shortint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Borra el fichero especificado y devuelve códigos: -1 Fichero no encontrado 0 Fichero borrado 1 Error: Fichero no borrado Function RenombrarFichero(Oldname,NewName:string):shortint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Renombra el fichero especificado y devuelve códigos: 0 Fichero renombrado 1 Fichero no encontrado 2 Error renombrando Procedure SalvaPantallas1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~ Efecto de pantalla, util para crear un salva pantallas. Procedure PantallaDiv4 ~~~~~~~~~~~~~~~~~~~~~~~~ Efecto especial de pantalla, que la divide en 4 parte y dirige 2 arriba y 2 abajo, dejando la pantalla borrada. Function RepCar(letra:Char; veces:Integer): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Duplica un caracter especificado un número de veces especificado. Function Espacios(num:Integer): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Duplica espacios en blanco un número de veces especificado. Function InverCar(Frase:String):String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Invierte los caracteres de una cadena. Function MayMin(M : Boolean; Cadena : String): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve una cadena en Mayúsculas o Minúsculas TRUE : Mayúsculas FALSE : Minúsculas Soporta caracteres 'áéíóúäëïöüâêîôûÉÄÖÜñÑ'. Function NumEnCad(S: String): Boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Comprueba que en una cadena String exiten solo Números, TRUE : Solo hay números FALSE : No Solo hay números Procedure InterCadena(Var A, B: String) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Intercambia dos cadenas. Function Left(X: String; Y: Integer): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Función similar a la del BASIC Left$, Devuelve una subserie de una serie especificada y de longitud indicada en la función, a partir del extremo izquierdo. Function Right(X: String; Y: Integer): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Función similar a la del BASIC Right$, Devuelve una subserie de una serie especificada y de longitud indicada en la función, a partir del extremo derecho. Function Int2Cad(Numero : longint; Tam : byte) : String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte un número entero en una cadena, en Tam se indica la longitud del entero en cadena. Function Real2Cad(Numero : real;Tam, Decimales : byte) : String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte un número real en una cadena, en Tam se indica la longitud del real en cadena y en Decimales la longitud de los decimales. Function HexCad (n: Word; count: Byte): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Covierte un número a una cadena hexadecimal, Count es la longitud. Function OctCad (n: Word; count: Byte): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Covierte un número a una cadena Octal, Count es la longitud. Function BinCad (n: Word; count: Byte): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Covierte un número a una cadena Binario, Count es la longitud. Function HexCad1 (w : Word): String ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Covierte un número a una cadena hexadecimal. Function FormatoPic(Entra,Pic:string;P:char): string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ En Entra que pone una cadena, en Pic se ponen tantos asteriscos (*) como caracteres queramos que coja de Entra, y P completa con el caracter que se de si se ponen asterisco de más. Ej. FormatoPic('DcLib','*******','#'); --> Devuelve DcLib## Function CadJ(CadJust:CadJust;Cad:string;Tamano:byte;chP:char):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ En CadJust se pone JDerecha, JCentrado o JIzquierda, en Cad una cadena, en Tamano el tamaño a coger de la cadena y chP un caracter para completar en caso de que el tamaño de Cad sea menor que el de Tamano. En CadJust se justifica la salida si Tamano>Cad. Function FormatoCortar(Entra:string;Comienzo,Longitud:byte;P:char):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Corta la cadena Entra y si te pasas de tamaño de la cadena se completa con el P. Function EsMay(K:word): boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve True si el caracter es mayúsculas. Ej. EsMay(ord('A')); --> Devuelve TRUE Function EsMin(K:word): boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve True si el caracter es minúsculas. Ej. EsMin(ord('a')); --> Devuelve TRUE Function PrimeraMayPos(Cad : string): byte ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve la posición de la primera mayúscula en la cadena. Function PrimeraMay(Cad : string): char ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve primer carácter en mayúsculas de la cadena. Function UltimosCar(N:byte;Cad:string):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve los N ultimos caracteres de Cad. Function PrimerosCar(N:byte;Cad:string):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve los N primeros caracteres de Cad. Function PrimerCarMay(Cad:string):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Pone la primera mayúscula de la cadena al principio de la mismo si no lo está. Function HexenCad(Str:string):boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve true si la cadena está en hexadecimal. Function LongInst2Cad(Numero:longint):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte un Entero (Longint) en una cadena. Function Longint2HexCad(Numero:longint):string ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte un Entero (Longint) en una cadena hexadecimal. Function RealEnCad(Cad:string):boolean ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Devuelve True si el número contenido en Cad es real. Function Cad2Real(Cad:string):real ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte cadena a real. Function Cad2Int(Str:string):integer ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte cadena a entero (Integer). Function Cad2Longint(Str:string):Longint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte cadena a entero (Longint). Function HEXCad2Longint(Str:string):longint ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Convierte Cadena hexadecimal a entero (Longint). Las funciones que funcionan igual que otras de las librerías de Borland, son totalmente diferentes a las de las librerías de Borland y no dependen de ellas. ┌────────────────┐ │ 4.- Registro ├─┐ └─┬──────────────┘ │ └────────────────┘ Enviar a: David Carrero Fernández-Baillo C/Caldereros, Nº 5 13640 HERENCIA (CIUDAD REAL) Teléfono (926) 57 18 05 - Fascímil (926) 57 18 05 FECHA: TEMA: Registro de librería DcLib, Versión 5.00 SU DIRECCIóN ============ Nombre:_____________________________________________________________ Dirección:_____________________________________________________________ :_____________________________________________________________ :_____________________________________________________________ Teléfono:_______________________ Fascímil:_______________________ INFORMACIóN PERSONAL ==================== Ha conseguido el programa de: ( ) Amigo ( ) Computer Club BBS: __________________________ Teléfonos: ____________________ : ____________________ Otros: ________________________ Deseas recibir de la nuevas Versiones: ( ) Información ( ) Disco contra reembolso Por Favor, indique aquí las observaciones y mejoras acerca del programa: ____________________________________________________ ______________________________________________________________ Deseas se informado sobre otros programas del autor: _________ HOJA DE PEDIDO ============== Pago mediante: ( ) CHEQUE ( ) CONTRA REEMBOLSO + 350 pts. de Gastos Envio ( ) GIRO POSTAL (adjuntar en sobre fotocopia resg.) ___ Librería(s) DcLib.TPU registrada(s).. 2.500 pts. _________ ___ Librería(s) DcLib.TPU registrada(s) antes del 15 de Julio de 1994........ 1.500 pts. _________ Nota: Solo se da derecho a utilizar esta librería en programas de la persona que tiene registrado el programa. En caso de se varias personas independientes, deberán registrar cada uno su copia. ___ Disco de 3½"........................ 150 pts. _________ ___ Disco de 5¼"........................ 200 pts. _________ 1 Envio (Solo Contra Reembolso)....... 350 pts. _________ 1 Envio fuera de España............... 500 pts. _________ ======================= TOTAL Pts. _________ ======================= Nota: Se entiende fuera de España, fuera de la Península. El precio Incluye 2 Actualizaciones gratuitas, que recibiras en tu domicilio en cuanto esten diponibles en disquete de 3½ ó 5¼. A partir de la 3 Actualización el precio el normal con un 70% de descuento. Actualmente solo se puede servir el programa en 3½, pero apartir de 10 de Abril también en 5¼ A se usuario consigues servicio técnico para resolver cualquier problema que tengas con la librería por correo o por teléfono, ver Datos del Autor, Horario Servico Técnico a usuarios registrados. ┌───────────────────────────────────────────────────────┐ │ 5.- Requerimientos mínimos y uso de estas librerías ├─┐ └─┬─────────────────────────────────────────────────────┘ │ └───────────────────────────────────────────────────────┘ El uso de estas librerías es muy simple, y todo programador con un poco de experiencia sabra usarla con la documentación entregada, de todas formas si se tuviese alguna duda sobre el funcionamiento del algún procedimiento o función, puede escribir al autor indicando la duda y la librería que tiene registrada, o bien por teléfono preguntar por David Carrero, en caso de no localizarme dejar vuestro nombre y duda y contestaré lo antes posible. Para consultar dudas también podeis enviar por fax una carta con la dudas que tengas, FAX (926) 57 18 05. Esta librería requiere unicamente poseer Turbo Pascal 7.0, y trabajar en modo real. (En Breve versión para el Modo Protegido ) ┌───────────────────────┐ │ 6.- Datos del Autor ├─┐ └─┬─────────────────────┘ │ └───────────────────────┘ Nombre : David Carrero Fernández-Baillo Domicilio : C/Caldereros, Nº 5 Población : HERENCIA C.P. : 13640 Provincia : CIUDAD REAL País : ESPAÑA Teléfono : (926) 57 18 05 (para el extranjero 34 26 57 18 05) Fax : (926) 57 18 05 (para el extranjero 34 26 57 18 05) Horario del Servicio Técnico al Usuario Registrado: Por Correo, o por Teléfono, tardes, en caso de no localizarme por teléfono deja el mensaje y tu nombre, y contestaré tu problema lo antes posible. De todas formas el mejor modo de resolver dudas es por fax y por correo, ya que por teléfono es más dificil contactar conmigo. ┌─────────────────────────────────────────────┐ │ 7.- Otros programas o librerías del autor ├─┐ └─┬───────────────────────────────────────────┘ │ └─────────────────────────────────────────────┘ Programas Shareware que requieren registro: Si no sabes donde adquirir una Demo envia disco de 3½ y 100 pts. en sellos y recibirás los que marques siempre que disco tenga capacidad. Letra NIF Versión 1.10 y Letra NIF Residente Versión 2.50 (Calcular la letra del NIF) Librería DcLib Versión 5.00 para Turbo Pascal 7.0 (Funciones y Procedimientos de uso general para TP7) Librería InfoPc Versión 3.00 para Turbo Pascal 7.0 (Funciones y Procedimiento de configuracion de sistema y más) ClavePc Versión 3.20 y ClavePc Bloqueo Versión 1.00 (Seguridad en tú ordenador) New Type Versión 1.10 (Igual que Type de Dos pero mucho mejor, prueba la demo) (Existen otras 18 librerías para Turbo Pascal 7.0, que espero que esten lista cuanto antes para incluir en vuestros programas, entre estas estan librería de uso de ratón, control de pantalla, ventanas, menús, salvar y recuperar pantallas, mover texto, música al estilo del basic, y mucho más, algunas de la librería en dos versiónes la normal y la orientada al objeto.) Programa Dominio Público y Shareware que no requieren registro: Si no sabes donde conseguirlos envia disco de 3½ ó 5¼ y 100 pts en sellos, y recibiras los que marques, siempre que el disco tenga capacidad. DcEdit Versión 1.00 (Dominio Público) (Editor de textos para dos (aún no imprime pero es mejor que el del DOS) ParkDD Versión 1.01 (Shareware) (Aparca cabezas del disco duro) Sonidos Versión 1.20 (Dominio Público) (Sonidos para usar con ficheros Batch) Video Lineas Versión 1.01 (Dominio Público) (Cambia la lineas de pantalla, solo VGA) Cursor Versión 1.02 (Dominio Público) (Cambia el tipo de cursor) DcBorde Versión 1.30 (Shareware) (Cambia el color del borde de pantalla, Solor EGA/VGA) Espacio Versión 2.40 (Shareware) (Devuelve información del ordenador, sistema, memoria, etc., está en desarrollo una nueva versión mucho más potente) Reset Versión 2.20 (Shareware) (Reseteos de ordenador por software, varios tipos) Fichero en EXE Versión 0.01 (Shareware) (Utilidad que convierte un fichero binario o texto en un código fuente para pascal, si programas en Turbo Pascal consiguelo, es de libre uso) Auto Agenda Versión 0.15 (Shareware) (Programa para leer un fichero con comandos y ejecutarlos, ideal para llamar desde el autoexec.bat, permite definir fechas de ejecución y mucho más.) BatPlus Línea Versión 1.00 alfa (en desarrollo) (Nuevos comandos para usar en ficheros BAT, cualquier nueva función que consideres interesante incluir en este programa, escribeme y dime cual es y haré lo posible por incluirla) NumSer Versión 1.05 (Dominio Público) (Programa para cambiar el número de serie de los disco formateados con el DOS 4 ó superior) VerGif y VerPcx (Visualizar imagenes .GIF y .PCX)